﻿Public Class MultipleChoiceQuestion
    Inherits System.Web.UI.UserControl

    Private _guid As String

    Public Property GUID As String
        Get
            Return If(IsNothing(_guid), "", _guid)
        End Get
        Set(ByVal value As String)
            _guid = value
        End Set
    End Property

    Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
        Dim mcq As MultipleChoiceQuestionModel = New MultipleChoiceQuestionModel(_guid)
        lbl_question.Text = mcq.Question
        rbl_answers.DataSource = mcq.DataSet
        rbl_answers.DataBind()
    End Sub

End Class